home *** CD-ROM | disk | FTP | other *** search
/ Apple Reference & Presen…tion Library 4 (Reseller) / Apple Ref. & Pres. Lib.v4.0.iso / 4-Demos / Third Party Demos / Information Management / Filevision® IV / FilevisionÆ IV / card_2195.txt < prev    next >
Text File  |  1990-03-16  |  9KB  |  382 lines
  1. -- card: 2195 from stack: in
  2. -- bmap block id: 6053
  3. -- flags: 4000
  4. -- background id: 13501
  5. -- name: import
  6. ----- HyperTalk script -----
  7. on openCard
  8.   global delay
  9.   unlock screen
  10.   wait (delay * 2) seconds
  11.   click at the loc of card button "MPNT"
  12.   wait round(delay * 1.5) seconds
  13.   click at the loc of card button "DRAWII"
  14.   wait round(delay * 1.5) seconds
  15.   click at the loc of card button "AI88"
  16.   wait round(delay * 1.5) seconds
  17. end openCard
  18.  
  19. on closeCard
  20.   put " " into card field 1
  21. end closeCard
  22.  
  23.  
  24.  
  25. -- part 3 (field)
  26. -- low flags: 01
  27. -- high flags: 0000
  28. -- rect: left=63 top=208 right=275 bottom=320
  29. -- title width / last selected line: 0
  30. -- icon id / first selected line: 0 / 0
  31. -- text alignment: 1
  32. -- font id: 3
  33. -- text size: 12
  34. -- style flags: 768
  35. -- line height: 16
  36. -- part name: icontype
  37.  
  38.  
  39. -- part 4 (button)
  40. -- low flags: 00
  41. -- high flags: 0000
  42. -- rect: left=316 top=241 right=278 bottom=347
  43. -- title width / last selected line: 0
  44. -- icon id / first selected line: 0 / 0
  45. -- text alignment: 1
  46. -- font id: 0
  47. -- text size: 12
  48. -- style flags: 0
  49. -- line height: 16
  50. -- part name: MPNT
  51. ----- HyperTalk script -----
  52. on mouseUp
  53.   put "This is a standard paint or bit map file icon also known as a" && "MacPaint¬Æ or MPNT type." && " Can be generated by many programs." into card field 1
  54.   put 1 into c
  55.   repeat until c=4
  56.     add 1 to c
  57.     play "Harpsichord" 90
  58.     set the hilite of me to true
  59.     wait 30
  60.     play "Harpsichord" 85
  61.     set the hilite of me to false
  62.     wait 30
  63.   end repeat
  64. end mouseUp
  65.  
  66.  
  67.  
  68. -- part 5 (button)
  69. -- low flags: 00
  70. -- high flags: 0000
  71. -- rect: left=358 top=45 right=82 bottom=389
  72. -- title width / last selected line: 0
  73. -- icon id / first selected line: 0 / 0
  74. -- text alignment: 1
  75. -- font id: 0
  76. -- text size: 12
  77. -- style flags: 0
  78. -- line height: 16
  79. -- part name: 
  80. ----- HyperTalk script -----
  81. on mouseUp
  82.   put "This is a MacDraw¬Æ PICT file icon also known as" && "an object oriented graphic format." && " PICTs can be generated by many programs."into card field 1
  83.   put 1 into c
  84.   repeat until c=4
  85.     add 1 to c
  86.     play "Harpsichord" 92
  87.     set the hilite of me to true
  88.     wait 30
  89.     play "Harpsichord" 87
  90.     set the hilite of me to false
  91.     wait 30
  92.   end repeat
  93. end mouseUp
  94.  
  95.  
  96. -- part 6 (button)
  97. -- low flags: 00
  98. -- high flags: 0000
  99. -- rect: left=358 top=84 right=121 bottom=392
  100. -- title width / last selected line: 0
  101. -- icon id / first selected line: 0 / 0
  102. -- text alignment: 1
  103. -- font id: 0
  104. -- text size: 12
  105. -- style flags: 0
  106. -- line height: 16
  107. -- part name: DRAWII
  108. ----- HyperTalk script -----
  109. on mouseUp
  110.   put "This is a MacDraw¬Æ II PICT" && "graphic file format." into card field 1
  111.   put 1 into c
  112.   repeat until c=4
  113.     add 1 to c
  114.     play "Harpsichord" 92
  115.     set the hilite of me to true
  116.     wait 30
  117.     play "Harpsichord" 87
  118.     set the hilite of me to false
  119.     wait 30
  120.   end repeat
  121. end mouseUp
  122.  
  123.  
  124. -- part 7 (button)
  125. -- low flags: 00
  126. -- high flags: 0000
  127. -- rect: left=358 top=123 right=160 bottom=389
  128. -- title width / last selected line: 0
  129. -- icon id / first selected line: 0 / 0
  130. -- text alignment: 1
  131. -- font id: 0
  132. -- text size: 12
  133. -- style flags: 0
  134. -- line height: 16
  135. -- part name: 
  136. ----- HyperTalk script -----
  137. on mouseUp
  138.   put "This is a SuperPaint¬Æ 2.0 PICT file icon that represents all" && "of its PICT format files." into card field 1
  139.   put 1 into c
  140.   repeat until c=4
  141.     add 1 to c
  142.     play "Harpsichord" 92
  143.     set the hilite of me to true
  144.     wait 30
  145.     play "Harpsichord" 87
  146.     set the hilite of me to false
  147.     wait 30
  148.   end repeat
  149. end mouseUp
  150.  
  151.  
  152. -- part 8 (button)
  153. -- low flags: 00
  154. -- high flags: 0000
  155. -- rect: left=359 top=162 right=199 bottom=390
  156. -- title width / last selected line: 0
  157. -- icon id / first selected line: 0 / 0
  158. -- text alignment: 1
  159. -- font id: 0
  160. -- text size: 12
  161. -- style flags: 0
  162. -- line height: 16
  163. -- part name: 
  164. ----- HyperTalk script -----
  165. on mouseUp
  166.   put "This file icon is from a common Compuserve¬Æ PICT graphic" && "known as GIF format." into card field 1
  167.   put 1 into c
  168.   repeat until c=4
  169.     add 1 to c
  170.     play "Harpsichord" 92
  171.     set the hilite of me to true
  172.     wait 30
  173.     play "Harpsichord" 87
  174.     set the hilite of me to false
  175.     wait 30
  176.   end repeat
  177. end mouseUp
  178.  
  179.  
  180. -- part 9 (button)
  181. -- low flags: 00
  182. -- high flags: 0000
  183. -- rect: left=358 top=201 right=238 bottom=389
  184. -- title width / last selected line: 0
  185. -- icon id / first selected line: 0 / 0
  186. -- text alignment: 1
  187. -- font id: 0
  188. -- text size: 12
  189. -- style flags: 0
  190. -- line height: 16
  191. -- part name: 
  192. ----- HyperTalk script -----
  193. on mouseUp
  194.   put "This is a MacDraft¬Æ PICT file icon also known as an" && "object oriented format." into card field 1
  195.   put 1 into c
  196.   repeat until c=4
  197.     add 1 to c
  198.     play "Harpsichord" 92
  199.     set the hilite of me to true
  200.     wait 30
  201.     play "Harpsichord" 87
  202.     set the hilite of me to false
  203.     wait 30
  204.   end repeat
  205. end mouseUp
  206.  
  207.  
  208. -- part 11 (button)
  209. -- low flags: 00
  210. -- high flags: 0000
  211. -- rect: left=357 top=241 right=277 bottom=391
  212. -- title width / last selected line: 0
  213. -- icon id / first selected line: 0 / 0
  214. -- text alignment: 1
  215. -- font id: 0
  216. -- text size: 12
  217. -- style flags: 0
  218. -- line height: 16
  219. -- part name: 
  220. ----- HyperTalk script -----
  221. on mouseUp
  222.   put "This is a Cricket Draw¬Æ PICT file icon.  Cricket Draw" && "can also create EPSF graphic files." into card field 1
  223.   put 1 into c
  224.   repeat until c=4
  225.     add 1 to c
  226.     play "Harpsichord" 92
  227.     set the hilite of me to true
  228.     wait 30
  229.     play "Harpsichord" 87
  230.     set the hilite of me to false
  231.     wait 30
  232.   end repeat
  233. end mouseUp
  234.  
  235.  
  236. -- part 12 (button)
  237. -- low flags: 00
  238. -- high flags: 0000
  239. -- rect: left=401 top=123 right=160 bottom=432
  240. -- title width / last selected line: 0
  241. -- icon id / first selected line: 0 / 0
  242. -- text alignment: 1
  243. -- font id: 0
  244. -- text size: 12
  245. -- style flags: 0
  246. -- line height: 16
  247. -- part name: 
  248. ----- HyperTalk script -----
  249. on mouseUp
  250.   put "This is an Adobe Illustrator¬Æ EPSF file." into card field 1
  251.   put 1 into c
  252.   repeat until c=4
  253.     add 1 to c
  254.     play "Harpsichord" 88
  255.     set the hilite of me to true
  256.     wait 30
  257.     play "Harpsichord" 83
  258.     set the hilite of me to false
  259.     wait 30
  260.   end repeat
  261. end mouseUp
  262.  
  263.  
  264. -- part 13 (button)
  265. -- low flags: 00
  266. -- high flags: 0000
  267. -- rect: left=400 top=162 right=199 bottom=431
  268. -- title width / last selected line: 0
  269. -- icon id / first selected line: 0 / 0
  270. -- text alignment: 1
  271. -- font id: 0
  272. -- text size: 12
  273. -- style flags: 0
  274. -- line height: 16
  275. -- part name: AI88
  276. ----- HyperTalk script -----
  277. on mouseUp
  278.   put "This is an Adobe Illustrator 88¬Æ EPSF file." into card field 1
  279.   put 1 into c
  280.   repeat until c=4
  281.     add 1 to c
  282.     play "Harpsichord" 88
  283.     set the hilite of me to true
  284.     wait 30
  285.     play "Harpsichord" 83
  286.     set the hilite of me to false
  287.     wait 30
  288.   end repeat
  289. end mouseUp
  290.  
  291.  
  292. -- part 14 (button)
  293. -- low flags: 00
  294. -- high flags: 0000
  295. -- rect: left=401 top=201 right=238 bottom=432
  296. -- title width / last selected line: 0
  297. -- icon id / first selected line: 0 / 0
  298. -- text alignment: 1
  299. -- font id: 0
  300. -- text size: 12
  301. -- style flags: 0
  302. -- line height: 16
  303. -- part name: 
  304. ----- HyperTalk script -----
  305. on mouseUp
  306.   put "This is a Cricket Draw¬Æ EPSF file.  Cricket Draw will" && "also save in PICT format." into card field 1
  307.   put 1 into c
  308.   repeat until c=4
  309.     add 1 to c
  310.     play "Harpsichord" 88
  311.     set the hilite of me to true
  312.     wait 30
  313.     play "Harpsichord" 83
  314.     set the hilite of me to false
  315.     wait 30
  316.   end repeat
  317. end mouseUp
  318.  
  319.  
  320. -- part 15 (button)
  321. -- low flags: 00
  322. -- high flags: 0000
  323. -- rect: left=401 top=240 right=277 bottom=432
  324. -- title width / last selected line: 0
  325. -- icon id / first selected line: 0 / 0
  326. -- text alignment: 1
  327. -- font id: 0
  328. -- text size: 12
  329. -- style flags: 0
  330. -- line height: 16
  331. -- part name: 
  332. ----- HyperTalk script -----
  333. on mouseUp
  334.   put "This blank icon can be found with applications that" && "do not provide a custom icon for their files." && " This could be a FreeHand¬Æ EPSF." into card field 1
  335.   put 1 into c
  336.   repeat until c=4
  337.     add 1 to c
  338.     play "Harpsichord" 88
  339.     set the hilite of me to true
  340.     wait 30
  341.     play "Harpsichord" 83
  342.     set the hilite of me to false
  343.     wait 30
  344.   end repeat
  345. end mouseUp
  346.  
  347.  
  348. -- part 16 (button)
  349. -- low flags: 00
  350. -- high flags: 0000
  351. -- rect: left=0 top=0 right=18 bottom=12
  352. -- title width / last selected line: 0
  353. -- icon id / first selected line: 25382 / 25382
  354. -- text alignment: 1
  355. -- font id: 0
  356. -- text size: 12
  357. -- style flags: 0
  358. -- line height: 16
  359. -- part name: ptr
  360.  
  361.  
  362. -- part 17 (field)
  363. -- low flags: 00
  364. -- high flags: 2002
  365. -- rect: left=0 top=0 right=29 bottom=512
  366. -- title width / last selected line: 0
  367. -- icon id / first selected line: 0 / 0
  368. -- text alignment: 1
  369. -- font id: 3
  370. -- text size: 14
  371. -- style flags: 768
  372. -- line height: 18
  373. -- part name: 
  374.  
  375.  
  376. -- part contents for card part 17
  377. ----- text -----
  378. Import AND Export PICTs, MPNTs and EPSF Graphics
  379.  
  380. -- part contents for card part 3
  381. ----- text -----
  382.